home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 1994 January / ARPL-Jan94-Disc1of2-Partner-Edition.iso / ARPL Info Center 1⁄94 Partner / ARPL Info Center 1_94 Partner / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1993-12-18  |  27.1 KB  |  36 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>14</cardCount>
  7.     <cardID>2925</cardID>
  8.     <listID>6262</listID>
  9.     <cantModify><true /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><true /></cantAbort>
  12.     <cardSize>
  13.         <width>640</width>
  14.         <height>480</height>
  15.     </cardSize>
  16.     <script>-- Stack: Apple Ref & Pres Library Internal Reader 1.2a5-- ¬©1991-94 Medior, Inc. & Apple Computer, Inc.-- 12/9/93 9:08on updateScroll theKey,theFldlock screenput return & cd fld theFld into theListput return before theKeyif theKey is not in theList then return 0put number of lines of (char 1 to offset(theKey,theList) of theList) into theLineput (theLine-1) * textHeight of cd fld theFld  into theLineif theLine < 0 then put 0 into theLineset scroll of cd fld theFld to theLineunlock screenend updateScrollon arrowkey theKeyif theKey = "Right" thenif there is a btn "Next" thensend "mouseStillDown true" to btn "next"end ifelse if theKey = "Left" thenif there is a btn "prev" thensend "mouseStillDown true" to btn "prev"end ifend ifend arrowkeyon MediorDB1 cif c is not "CloseDown" then checkForVolumepass MediorDB1end MediorDB1function MediorDB2 cif c is not "Dispose" then checkForVolumepass MediorDB2end MediorDB2on mountServer warnFlagspinCursorput "Server Prefs" into cdNameput cd fld "Volume" of cd cdName into theVolumeMount cd fld "Zone" of cd cdName,cd fld "Server" of cd cdName,theVolume,¬¨cd fld "User" of cd cdName,cd fld "Password" of cd cdNameput the result into rspinCursorput theVolume&"Stack Data" into stackDataFolderif there is not a folder stackDataFolder thenif warnFlag is not false thenbeepwarnAdmin "Unable to locate ARPL Server." & return & rend ifreturn falseend ifend mountServeron warnAdmin stranswer str & return & return & "Please contact your ARPL Server administrator:" & return  & return &¬¨(cd fld "Admin Name" of cd "Server Prefs")&¬¨return & (cd fld "Admin Phone" of cd "Server Prefs")end warnAdminon checkForVolume startFlagglobal gCDVolume6,gOnServerif there is not a folder gCDVolume6 & "Stack Data" thenif gOnServer is true thenif startFlag is not true then mountServer "False"if there is not a folder gCDVolume6 & "Stack Data" thengo cd 1beepif startFlag is true thenwarnAdmin "The server connection could not be established."elsewarnAdmin "The server connection has been lost and could not be re-established."end ifend ifelsebeepanswer "This stack requires the " & cdName() &" be mounted. Please do and click OK."if there is not a folder gCDVolume6 & "Stack Data" thenif startFlag is not true thenspinCursorgo cd 1beepanswer "The " & cdName()&" CD could not be found.  Please mount it and try again." with "Cancel"exit to HyperCardend ifend ifend ifend ifend checkForVolumefunction cdNamereturn "ARPL 1/94 CD 1"end cdNamefunction checkError theStringreturn "Error: " is in theStringend checkErrorfunction CdNumberInBgreturn (number of this cd - number of cd 1 of this bg) + 1end CdNumberInBgon fail eanswer eend failon hideStuffspinCursorif item 4 of the screenRect ‚â§480 then hide menuBarhide btn "Idler"end hideStuffon toggleHelpset visible of cd fld "HelpText" to not visible of cd fld "HelpText"end toggleHelpon HelpLinkToHelpend Helpon LinkToHelpglobal gCurMovie1if there is a window gCurMovie1 then send "toggleGuide" to this cdsend "helpText" to this cdget the resultput it into helpTextput line 1 of helpText into theTitledelete line 1 of helpTextput windowScript ("Help",theTitle,helpText) into aif line 1 of a = "Print" then print theTitle & return & return & helpTextset cursor to handend LinkToHelpon moveWindowglobal gCurStillMoviespinCursorif there is a window gCurStillMovie and there is a btn "MoovLoc" thenset topLeft of window gCurStillMovie to topLeft of btn "MoovLoc"end ifend moveWindowfunction movieCenterLocglobal gMovieRectput gMovieRect into rput rect of cd window into r2put (abs of (item 3 of r2 - item 1 of r2) - abs of (item 3 of r - item 1 of r)) div 2 into theHput (abs of (item 4 of r2 - item 2 of r2) - abs of (item 4 of r - item 2 of r)) div 2 into theVreturn theH &","&theVend movieCenterLocfunction hitsForTerm sL,tFput "" into hitListput "" into bListopen file tFread from file tF until eofput it into findInclose file tFset cursor to busyrepeat with i = 1 to number of lines in sLput "" into subHitsput line i of sL into thisWordput word 1 of thisWord into line i of bListdelete word 1 of thisWordif char 1 of thisWord = space then delete char 1 of thisWordput line lineItemOffset(thisWord,findIn) of findIn into subHitsrepeat until item 1 of subHits is a number or subHits = ""delete item 1 of subHitsend repeatput subHits into line i of hitListend repeatput line 1 of hitList into allHitsset cursor to busyrepeat with z = 2 to number of lines of bListput ListLogic(allHits,line z of bList,line z of hitList,false,",") into allHitsend repeatsort items of allHits numericrepeat until char 1 of allHits is not ","delete char 1 of allHitsend repeatreturn allHitsend hitsForTermfunction TitleListC hits,tFput ".t" after tFset cursor to busyopen file tFread from file tF until eofput it into cdNamesclose file tFput myTitles(hits,cdNames) into ttlsreturn ttlsend TitleListCon helpTextif there is a cd fld "helpText" then return cd fld "helpText"end helpTexton openCardrepeat until not the lockscreenunlock screenend repeatend openCardon commandKey theKeyif theKey = "Q" thenpass commandKeyelse exit to HyperCardend commandKeyon domenu wglobal userNameif userName is "Peter Meyer" then pass domenuif w is in "Prev Next Last First Back Recent" thenexit domenuelse if w is "Quit HyperCard" thenLinkToQuitelse pass domenuend domenuon closeCardglobal gCurMovie1lock screenset cursor to 4if there is a window gCurMovie1 then send "ToggleGuide" to this cdend closecardon openStackglobal gARPLMain,gARPL2Init,gCDVolume6,gAttacheList,gOnServer,gUserNameset the userModify to trueif item 4 of the screenRect ‚â§480 then hide menuBarif gARPL2Init is not true thenlock screenset cursor to 4if the long version < 02108000 thenanswer "This requires HyperCard 2.1 or greater. " & ¬¨"Please update your copy of HyperCard and try again." with "Quit"put true into gARPL2Initlock messagessend "domenu Quit HyperCard" to HyperCardexit openstackend ifset cantAbort of this stack to trueput long name of this stack into gARPLMainput pathway(trim(long name of this stack)) into thePathput hilite of btn "Use Server" of cd "Server Prefs" into gOnServerif gOnServer thenput cd fld "Volume" of cd "Server Prefs" into gCDVolume6mountServer falseif last char of gCDVolume6 is not ":" thenput ":" after gCDVolume6end ifelse put "ARPL 1/94 CD 1 - Partner:" into gCDVolume6checkForVolume trueif thePath = gCDVolume6 thenif gOnServer is true thenput "ARPL Server Interface" into dNput "Server" into welseput "ARPL CD Interface 1/94" into dNput "CD" into wend ifanswer "You are currently running ARPL from the "&w&¬¨".  Copying the interface from the "&w&" will allow it to run faster." & return & return &¬¨"Would you like to copy the interface to your hard disk now (requires about 1.9Mb of space) "&¬¨"or continue to use the copy from the "&w&"?" with "Quit" or ("Use "&w) or "Copy Now"if it = "Copy Now" thenask file "Save ARPL Software as:" with dNput it into nFif nF is not "" thenput ":" after nFif there is not a folder nF thenNewFolder nFget the Resultif it is not 0 thenif it is not -48 then osErr itend ifend ifset cursor to 4FileCopy gCDVolume6 &"Getting Started:Presentation Maker:Slide Sorter",¬¨pathway(nF)&"Slide Sorter",true,"DontResolveAlias"FileCopy trim(long name of this stack),nF,true,"DontResolveAlias"--,"DontShowProgress"put the result into eif e contains "Error" thenanswer "Sorry, unable to copy the ARPL interface - it will run from the "& w & return & eelseanswer "Installation successful!" & return &¬¨"Would you like to quit now and use the copy on your hard disk or continue "&¬¨"running from the "&w&"?" with "Continue" or "Quit"if it = "Quit" thenput true into gARPL2Initlock messagessend "domenu Quit HyperCard" to HyperCardexit openstackend ifend ifend ifelse if it = "Quit" thenput true into gARPL2Initlock messagessend "domenu Quit HyperCard" to HyperCardexit openstackend ifend ifspinCursorput MediorQTVersion() into theQTVersionif value of theQTVersion < "15" thenanswer "QuickTime‚Ñ¢ 1.6 is required to view this presentation. "&¬¨"Please copy the QuickTime‚Ñ¢ 1.6 extension (located in the Getting Started Folder) "&¬¨"into your System folder, restart and try again." with "Quit"put true into gARPL2Initlock messagessend "domenu Quit HyperCard" to HyperCardexit openstackend ifspinCursorput PICTpath() into gMainPictPathif the heapspace < 1200000 and the optionKey is not "Down" thenanswer "Please quit and increase the partition size to 2600K or larger." with "Quit"lock messagesput true into gARPL2Initsend "domenu Quit HyperCard" to HyperCardexit openstackend ifhide groupsswitchXrooput the result into monListif "error" is not in monList thenput loc of cd window into cdLocput the screenRect into sput 1 into theMonNumput false into colorWarningrepeat with m = 1 to number of lines of monListput line m of monList into thisLineput item 2 to 5 of thisLine into theRectput item 2 of theRect &"," & item 1 of theRect & "," & item 4 of theRect & "," &¬¨item 3 of theRect into theRectput theRect into item 2 to 5 of monListif (cdLoc is within theRect) then put m into theMonNumput item 6 of thisLine into curDepthif curDepth > 8 thenif colorWarning = false thenbeepanswer "ARPL requires that your monitors are set to 256 colors (8 bit)." & return &¬¨"Click ‚ÄúSwitch‚Äù to change this automatically." with "Quit" or "Switch"if it = "Quit" thenlock messagesput true into gARPL2Initsend "domenu Quit HyperCard" to HyperCardexit openstackend ifend ifswitchXroo 8,"color",mend ifend repeat-- put line theMonNum of monList into hcMonDetails-- put item 6 of hcMonDetails into curDepth-- put item 7 of hcMonDetails into theShade-- put last item of hcMonDetails into maxDepth-- if maxDepth > 8 then put 8 into maxDepth-- if curDepth is not maxDepth then switchXroo maxDepth,"color",theMonNumend ifget the screenRectput abs of (item 4 of it - item 2 of it) into wif w < 480 thenbeepanswer "This stack requires a 13‚Äù monitor (or larger)."end iflock screenset the textArrows to truecHCinstallreadPrefsput "" into gAttacheListput true into gARPL2Init-- if gUserName = "" then-- lock screen-- send "UpdateCdPICT" to this cd-- repeat until not the lockscreen-- unlock screen-- end repeat-- go this cd-- answer "You have not registered yet.  Would you please do so now?" with "Cancel" or "Register"-- if it = "Register" then send "Register" to this cd-- end ifend ifend openstackon closeStackcHCdisposeMediorDB1 "CloseDown"get MediorDB2("Dispose")pass closeStackend closeStackon resumeStackif item 4 of the screenRect ‚â§480 then hide menuBarcHCinstalllock screenspinCursorsend "openBackground" to this cdsend "openCard" to this cdpass resumeStackend resumeStackon suspendStackcHCdisposesend "closeCard" to this cdpass suspendStackend suspendStackfunction trim tNdelete char 1 to 7 of tNdelete last char of tNreturn tNend trimFunction PathWay tFrepeat with i = length of tF down to 1if char i of tF = ":" then exit repeatend repeatif i < 2 then return tFelse return (char 1 to i of tF)end PathWayfunction RemovePath tFput length of tF into pLrepeat with i = pL down to 1if char i of tF = ":" then exit repeatend repeatif i + 1 = pL thenreturn last char of tFelseadd 1 to iif pL ‚⧠i thenreturn tFelse return (char i to pL of tF)end ifend RemovePathfunction VolumeNameput trim(long name of this stack) into tFrepeat with i = 1 to number of chars of tFif char i of tF = ":" then exit repeatend repeatreturn (char 1 to i of tF)end VolumeNamefunction PICTpathreturn pathway(trim(long name of this stack)) & "PICTs:"end PICTpathon colorizeHCglobal gOKToColorizeif (gOKToColorize = "") then pass colorizeHCend colorizeHCon clearCardColorizeHC "Erase",rect of this cdif the result is not "" then answer the resultgo this cdend clearCardon selectLineCd lineNum,fldNumselect line lineNum of cd fld (last word of fldNum)end selectLineCdon LinkToMainLinkToCard "Main"end LinkToMainon LinkToCard theCd,theEffect,theStacklock screenspinCursorif theStack = "" then put long name of this stack into theStackgo cd char 1 to 30 of theCd of theStackget the resultif it is not "" then underDevwait until not the mouseClickend linkToCardon SpinCursorglobal CursIDput (CursID+1) mod 8 into CursIDset cursor to CursID+256end SpinCursorfunction LineOffset fT,fIif fT is not in fI then return 0put return & fI & return into fIreturn number of lines of (char 1 to offset(return&fT&return,fI) of fI)end LineOffsetfunction LineItemOffset fT,fIif fT is not in fI then return 0put return & fI & return into fIreturn number of lines of (char 1 to offset(return&fT&",",fI) of fI)end LineItemOffseton LinkToQuitglobal gOnServer,gCDVolume6answer "Quit ARPL Now?" with "Cancel" or "Quit"if it = "Cancel" then exit LinkToQuitspinCursorLinkTocard "CopyRights"repeat until not the lockscreenunlock screenend repeatrepeat 8wait 1 secondspinCursorend repeatif gOnServer is true then unMount gCDVolume6send "domenu Quit HyperCard" to hyperCardend LinkToQuiton cHCinstallspinCursorif checkEnviron() is not "OK" thengo HomegetHomeInfoexit to HyperCardend ifsetupColorGlobalend cHCinstallon setupColorGlobalglobal gCHCColors,gXCMDErrorput "" into gXCMDErrorput MaxDepth() into tMif gXCMDError is not empty then answer gXCMDErrorif (tM < 8) then put "0,39321,65535  65535,65535,65535  65535,65535,65535  65535,17882,9080" into gCHCColorselse put "22733,31573,52428  65535,65535,65535  56797,56797,56797  39321,13107,39321" into gCHCColorsend setupColorGlobalfunction checkEnvironput MaxDepth() into tDif tD < 4 then answer "This stack requires a color system set to at least 16 colors (4 bit-depth) to display color."put the heapSpace into cHif (tD = 1) and (cH <2600) then errMemory tD,"1100K"else if (tD=2) and (cH <117200) then errMemory tD,"1200K"else if (tD=4) and (cH <205000) then errMemory tD,"1250K"else if (tD=8) and (cH <384000) then errMemory tD,"1300K"else if (tD=16) and (cH <721000) then errMemory tD,"2400K"else if (tD‚â•24) and (cH <1421000) then errMemory tD,"3000K"else if stackActivate() is not "" thenerrColorreturn "OK"else return "OK"end checkEnvironon errMemory tD,PartitionSizeput lastItem(":",the long name of HyperCard) into hCbeepanswer "Warning: not enough memory to run ARPL in" && tD && "bit mode. The memory partition size of" && hC && "should be at least" && PartitionSize & "."end errMemoryfunction lastItem tD,sif tD is in s then put lastItem(tD,char offset(tD,s) + 1 to length(s) of s) into sreturn send lastItemfunction stackActivateglobal gOKToColorizeput "" into gOKToColorizecolorizeHC "assignToFront"if the result is not "" thenput the result into gOKToColorizereturn gOKToColorizeend ifend stackActivateon errColorglobal gOKToColorizeanswer "Warning: The environment ARPL is currently running in is not able to support color." & return & "Reason:" && gOKToColorizeend errColoron cHCdisposelock screencolorizeHC "dispose"end cHCdisposeon closeMovieglobal gCurMovie1,gARPLQTAudiospinCursorput the audioLevel of window gCurMovie1 into gARPLQTAudioend closeMovieon clearMovieglobal gCurMovie1if there is a window gCurMovie1 then close window gCurMovie1put "" into gCurMovie1end clearMovieon DrawColor thePath,r1,r2global userName,gPictPathif thePath = "" then exit drawColorif thePath is in "ClearErase" thenColorizeHC "Erase",rect of this cdelseif r1 = "" and r2 is not "" then put rect of cd window into r1colorizeHC "add",thePath,r1,r2end ifgo this cdend DrawColoron UpdateCdPictend UpdateCdPicton WritePrefsglobal gUserName,gUserLocation,gMarket,gAttacheList,gARPLQTAudiospinCursorput PrefPath() & "User Data" into tFopen file tFwrite gUserName & "‚âà" & gUserLocation & "‚âà" & gMarket& "‚âà" & gARPLQTAudio &¬¨"‚âà" & gAttacheList to file tFclose file tFend WritePrefson WriteQTAttacheglobal gQTAttacheList,gQTAttachePathsspinCursorput PrefPath("ARPL 12.0") & "ARPL Movie Attache" into tFput "ARPL Movie Attache" & return into trepeat with z = 1 to number of lines of gQTAttacheListput line z of gQTAttachePaths & "‚àÇ"& line z of gQTAttacheList & return after tend repeatspinCursoropen file tFwrite t to file tFclose file tFend WriteQTAttacheon readPrefsglobal gUserName,gUserLocation,gMarket,gAttacheList,gARPLQTAudioglobal gCDVolume6,gPresentationsList,gTemp1spinCursorput PrefPath() & "User Data" into tFopen file tFread from file tF until eofclose file tFset the itemDelimiter to "‚âà"put item 1 of it into gUserNameput item 2 of it into gUserLocationput item 3 of it into gMarketif gMarket = "Large Business" then put "Enterprise" into gMarketput item 4 of it into gARPLQTAudiodelete item 1 to 4 of itput it into gAttacheListset the itemDelimiter to ","if there is a file gCDVolume6 & "Desktop DF" thenspinCursorput "" into gPresentationsListput "" into gTemp1MediorDB1 "Setup",presMakerDataPath() & "Presentations Titles db1"if the result is not "" then fail the resultMediorDB1 "Presentations","Presentations","All","gPresentationsList","gTemp1"if the result is not "" then fail the resultput 0 into dspinCursorrepeat with z = number of lines of gAttacheList down to 1if lineOffset(line z of gAttacheList,gPresentationsList) = 0 thendelete line z of gAttacheListadd 1 to dend ifend repeatend ifend readPrefson osErr theErroranswer "An error has occurred:" & return & theErrorexit to hyperCardend osErrfunction PrefPath tFif tF = "" then put "ARPL 12.0" into tFput systemPath() into sPput sP &"Preferences:"&tF&":" into fFif there is not a folder (sP &"Preferences:") thenNewFolder sP &"Preferences:"get the Resultif it is not 0 and it is not -48 then osErr itNewFolder fFget the Resultif it is not 0 and it is not -48 thenosErr itend ifelse if there is not a folder fF thenNewFolder fFget the Resultif it is not 0 and it is not -48 then osErr itend ifreturn fFend PrefPathfunction trainingPathglobal gCDVolume6return gCDVolume6 & "Tech of Indep Mat‚Äôls:"end trainingPathfunction applicationsPathglobal gCDVolume9return gCDVolume9&"Applications:"end applicationsPathfunction presMakerDataPathglobal gCDVolume6return gCDVolume6&"Stack Data:Presentation Maker:"end presMakerDataPathfunction applicationsDataPathglobal gCDVolume9return gCDVolume9&"CD Data:"end applicationsDataPathfunction infoCenterDataPathglobal gCDVolume6return gCDVolume6&"Stack Data:Info Center:"end infoCenterDataPathon underDevbeepanswer "Not implemented in this version."exit to HyperCardend underDevon Copy tFs,apglobal gTheError,gCDVolume6,gAllAppsList,gAllAppsRecsSpinCursorif tFs = "" or tFs contains "‚Ä¢ Folder not found" then underDevput "" into gTheErrorrepeat until "‚àÜ" is not in tFsput quote into char offset("‚àÜ",tFs) of tFsend repeatrepeat until "‚âà" is not in tFsput "," into char offset("‚âà",tFs) of tFsend repeatput "None" into compressedif last char of tFs is ":" thenput pathway(line 1 of tFs) into sPput folderSize(sP) into rqif rq is not a number then exit copyput sP into tempdelete last char of tempput removePath(temp) into tempput "folder ‚Äú"&temp&"‚Äù" into promptelseput line 1 of tFs into sPput fileSize(sP) into rqif rq is not a number then exit copyput sP into tempput removePath(temp) into tempput length of temp into theLif char theL-2 to theL of temp = ".dd" thendelete char theL-2 to theL of tempput "compressed folder ‚Äú"&temp&"‚Äù" into promptput "DD" into compressedelse if char theL-3 to theL of temp = ".sea" thendelete char theL-3 to theL of tempput "compressed folder ‚Äú"&temp&"‚Äù" into promptput "SEA" into compressedelse put "file ‚Äú"&temp&"‚Äù" into promptend ifif rq contains "Error" thenanswer "Sorry, unable to copy "&prompt&": " & return & rqexit Copyend ifput "" into ap --‚Ä¢‚Ä¢ Since Apps are splitif ap = "Application" or ap = "HyperCard" or¬¨ap = "QuickTime" or ap = "AppleLink" then put "" into apif ap is not "" thenif gAllAppsList = "" thenput "" into gAllAppsListput "" into gTempMediorDB1 "Setup",applicationsDataPath() & "Applications Titles db1"if the result is not "" then fail the resultMediorDB1 "Applications","Applications","All","gAllAppsList","gAllAppsRecs"if the result is not "" then fail the resultend ifput number of lines of char 1 to offset(ap,gAllAppsList) of gAllAppsList into theLineput line theLine of gAllAppsRecs into theRecordNumget MediorDB2("Setup",applicationsDataPath() & "Applications Data db2")if it is not "" then fail itget MediorDB2("ReadData","Applications",theRecordNum,"Folder")if checkError(it) then fail itput it into theCopyScriptif theLine > 0 thenanswer "While copying the "& prompt & ", would you like to copy "&ap&" also?"¬¨with "Cancel" or "No" or "Yes"else if (rq*1.05) ‚â• 2000000 thenanswer "The "&prompt &" is " & (rq*1.05) div 1024&"K and will take a while to copy." with "Cancel" or "Continue"end ifif it = "Yes" then put true into copyAppelse if it = "Cancel" thenexit copyend ifelse if (rq*1.05) ‚â• 2000000 thenanswer "The "&prompt &" is " & (rq*1.05) div 1024&"K and will take a while to copy." with "Cancel" or "Continue"elseget "Continue"end ifgo this cdif it = "Cancel" then exit CopySpinCursorif compressed = "SEA" thenif there is a btn "Idler" then show btn "Idler"spinCursoropen sPwait 2 secondswait until not the suspended--@ result memory checkelseif "Folder" is in prompt and compressed is "None" thenput lastFolder(sP) into defaultif last char of default is ":" then delete last char of defaultask file "Save folder as:" with defaultelse if compressed = "DD" thenput removePath(sP) into defaultask file "Save compressed file as:" with defaultelseput removePath(sP) into defaultask file "Save file as:" with defaultend ifif it = "" thenexit Copyend ifput it into thePathgo this cdput char 1 to offset(":",thePath) of thePath into theVolumeput diskSpaceAvail(theVolume) into spaceAvailif gTheError is not empty thenanswer "Sorry, unable to copy "&prompt&": " & return & gTheErrorput "" into gTheErrorexit Copyend ifif spaceAvail < rq*1.05 thendelete last char of theVolumebeepanswer "There is not enough space on the volume ‚Äú"& theVolume &"‚Äù to copy the " & prompt &"."&¬¨return & "Space required  : "& rq*1.05 div 1024 & "K" & return &¬¨"Space available : " & spaceAvail div 1024 & "K" with "Cancel"exit Copyend ifSpinCursorif length of thePath+31 > 250 thenbeepanswer "You specified a path too far down (more than 250 chars)."& return &¬¨"If you wish to copy this, please try again." with "Cancel"exit Copyend ifSpinCursorif prompt contains "Folder" and compressed is "None" thenCopyFolder sP,thePath,trueelse FileCopy sP,thePath,trueput the result into OsErrif OsErr contains "Error" thenanswer "Sorry, unable to copy "&prompt&": " & return & OsErrexit Copyend ifend ifSpinCursorwait until not the mouseClickif copyApp is true then do "copy "& quote & theCopyScript & quoteEnd Copyfunction lastFolder pput number of chars of p into lrepeat with i = l down to 1if char i of p = ":" then exit repeatend repeatsubtract 1 from irepeat with z = i down to 1if char z of p = ":" then exit repeatend repeatreturn char z+1 to i of pend lastFolderon runDirect tM,mLoc,closeFlag,wdStyle,invisglobal gCurMovie1,gARPLQTAudio,gNarration-- if ":" is not in tM then put moviePath() before tMif there is not a file tM thenput "" into gCurMovie1answer "Movie ‚Äú"&tM & "‚Äù not found. Please mount the CD."exit runDirectend ifspinCursorif there is a window gCurMovie1 thenset CurrTime of window gCurMovie1 to 0send "Play" to window gCurMovie1elseif wdStyle = "" then put "borderLess" into wdStyleif mLoc = "" then put "Card" into mLocMovie tM,wdStyle,mLoc,"invisible","floating"if the result is not "" thenanswer the resultexit to HyperCardend ifspinCursorput removePath(tM) into gCurMovie1if closeFlag = "True" then set closeOnFinish of window gCurMovie1 to trueif gARPLQTAudio = "" then put 256 into gARPLQTAudioif (gNarration = "Text") thenset the audioLevel of window gCurMovie1 to 0if short name of this stack is not Animation() thenset the controllerVisible of window gCurMovie1 to falseend ifelseset the audioLevel of window gCurMovie1 to gARPLQTAudioif there is a bg btn "No Sound" thenset the controllerVisible of window gCurMovie1 to not (hilite of bg btn "No Sound")end ifend ifset the badge of window gCurMovie1 to falseshow cd windowif invis is not true then show window gCurMovie1set the rate of window gCurMovie1 to .1send "Play" to window gCurMovie1repeat with z = 2 to 10set the rate of window gCurMovie1 to z/10end repeatend ifspinCursorend runDirect</script>
  17.     <background id="2663" file="background_2663.xml" name="" />
  18.     <background id="6025" file="background_6025.xml" name="Misc" />
  19.     <background id="8974" file="background_8974.xml" name="" />
  20.     <background id="9917" file="background_9917.xml" name="Misc" />
  21.     <card id="2925" file="card_2925.xml" marked="false" name="Main" owner="2663" />
  22.     <card id="5140" file="card_5140.xml" marked="false" name="Briefing Center" owner="2663" />
  23.     <card id="5873" file="card_5873.xml" marked="false" name="Training Materials" owner="2663" />
  24.     <card id="2271" file="card_2271.xml" marked="false" name="Briefs" owner="6025" />
  25.     <card id="4851" file="card_4851.xml" marked="false" name="Datasheets" owner="6025" />
  26.     <card id="6435" file="card_6435.xml" marked="false" name="Presentations" owner="6025" />
  27.     <card id="5464" file="card_5464.xml" marked="false" name="Documents" owner="6025" />
  28.     <card id="4163" file="card_4163.xml" marked="false" name="Demos" owner="6025" />
  29.     <card id="8913" file="card_8913.xml" marked="false" name="Other Materials" owner="6025" />
  30.     <card id="2475" file="card_2475.xml" marked="false" name="Presentation Maker" owner="6025" />
  31.     <card id="3991" file="card_3991.xml" marked="false" name="Theatre" owner="8974" />
  32.     <card id="9649" file="card_9649.xml" marked="false" name="Copyrights" owner="9917" />
  33.     <card id="10414" file="card_10414.xml" marked="false" name="FeedBack" owner="9917" />
  34.     <card id="7239" file="card_7239.xml" marked="false" name="Server Prefs" owner="9917" />
  35. </stack>
  36.